unit uFrameClassifTV;

{$mode objfpc}{$H+}

interface

uses
    Classes, SysUtils, FileUtil, Forms, Controls, ComCtrls,
    // IS
    uTypes, uInterfaces;

type

    { TFraClassifTV }

    TFraClassifTV = class(TFrame, IISPanel)
        tvMain: TTreeView;
    private
    protected
    public
        // IISPanel
        function GetCode: string; virtual;
        function GetCaption: string; virtual;
        function GetPanel: TWinControl; virtual;
        function GetFrame: TWinControl; virtual;

        procedure EmbedInto(aSurface: TWinControl); virtual;
    end;

implementation

{$R *.lfm}

{ TFraClassifTV }

function TFraClassifTV.GetCode: string;
begin

end;

function TFraClassifTV.GetCaption: string;
begin

end;

function TFraClassifTV.GetPanel: TWinControl;
begin

end;

function TFraClassifTV.GetFrame: TWinControl;
begin

end;

procedure TFraClassifTV.EmbedInto(aSurface: TWinControl);
begin

end;

end.

